open C_syntax;;

module S = Syntax (Lexical.Integer) (Lexical.Real) (Lexical.WideString) (Lexical.Token);;
open S.CPG;;

debug := try Sys.argv.(1) = "-v" with Invalid_argument _ -> false;;
pretty_printer := true;;
error_printer := true;;
runtime_debug := true;;
generate S.translation_unit;;
Printf.eprintf "OK. (time: %f sec)\n" (Sys.time ());;
